100 POKE53280,2:POKE53281,2:POKE646,7
110 POKE808,225
120 GOSUB4500
130 GOSUB3500
140 GOSUB2000
150 X=20:Y=2:GOSUB1000
160 PRINTDN$
170 T=18:S=1
180 OPEN1,8,15,"I0"
190 OPEN2,8,2,"#"
200 PRINT#1,"U1 2 0";T;S
210 GET#2,T$,S$
220 FORP=2TO226STEP32
230 PRINT#1,"B-P 2";P
240 GET#2,F$:IFF$=""THENF$=CHR$(0)
250 F=ASC(F$):F=FAND15
260 IFF<>2THEN840
270 O=P+3:PRINT#1,"B-P 2";O:NA$=""
280 FORI=1TO16:GET#2,A$:NA$=NA$+A$:NEXT
290 IFH=88THEN310
300 GOSUB1500
310 X=20:Y=6:GOSUB1000
320 PRINTNA$
330 IFH=88THEN360
340 E$="UEBERSPRINGEN:  J [146] => JA   N [146] => NEIN"
350 GOSUB2500
360 GET W$:IFW$=""THEN360
370 IFW$="N"THEN410
380 IFW$="J"THENH=88:GOTO840
390 IFW$=CHR$(133)THENT$="":GOTO850
400 GOTO360
410 E$="EINGABE:  1 [146] => ,8,1      2 [146] => ,8:":H=0
420 GOSUB2500
430 GETW$:IFW$=""THEN430
440 IFW$="1"THENC$=",8,1":Q=11:GOTO490
450 IFW$="2"THENC$=",8:":Q=12:GOTO490
460 IFW$=CHR$(134)THENC$="":Q=16:GOTO490
470 IFW$=CHR$(133)THENT$="":GOTO850
480 GOTO430
490 GOSUB3000
500 LN=LEN(NA$)
510 IFLN<QTHENNA$=NA$+CHR$(32):GOTO500
520 NA$=LEFT$(NA$,Q)
530 IFQ=11THENE$="EINGABE MAX. 11 ZEICHEN":GOSUB2500
540 IFQ=12THENE$="EINGABE MAX. 12 ZEICHEN": GOSUB2500
550 IFQ=16THENE$="EINGABE MAX. 16 ZEICHEN":GOSUB2500
560 NE$="":X=20:Y=10:GOSUB1000
570 IF Q=16 THENNA$=LEFT$(NA$,11)
580 PRINT">";NA$;
590 V$="":POKE646,0:POKE207,0:POKE204,0
600 X=21:GOSUB1000
610 POKE55757,2
620 GETZ$:IFZ$=""THEN620
630 POKE204,1
640 IFZ$=CHR$(20)THEN620
650 IFZ$=CHR$(13)THEN700
660 V$=V$+Z$
670 PRINTV$
680 IFLEN(V$)>(Q-1)THEN700
690 GOTO600
700 POKE646,7:I=LEN(V$)
710 IFI=0THENNE$=NA$:GOTO760
720 IFQ=12THENG=12:GOTO740
730 G=11:IFI>GTHENI=G
740 NA$=RIGHT$(NA$,(G-I))
750 NE$=V$+NA$
760 GOSUB3000
770 LN=LEN(NE$)
780 IFLN<>Q+1THENNE$=NE$+CHR$(160):GOTO770
790 NE$=NE$+C$
800 X=20:Y=14:GOSUB1000
810 PRINTNE$
820 PRINT#1,"B-P 2";O
830 PRINT#2,NE$
840 NEXT
850 PRINT#1,"U2 2 0";T;S
860 CLOSE2:CLOSE1
870 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
880 IFT=0THEN4000
890 GOTO180
999 REM *** CURSORPOSITIONIERUNG ***
1000 POKE211,X:POKE214,Y:SYS58732
1010 RETURN
1499 REM *** EINTRAEGE LOESCHEN ***
1500 FORK=1TO500:NEXT
1510 X=20:Y=10:GOSUB1000
1520 PRINT"                 "
1530 Y=14:GOSUB1000
1540 PRINT"                    "
1550 RETURN
1999 REM *** DISKNAME + ID EINLESEN ***
2000 OPEN1,8,15,"I":OPEN2,8,2,"#"
2010 PRINT#1,"U1 2 0 18 0"
2020 PRINT#1,"B-P 2 144"
2030 DN$=""
2040 FORI=1TO16:GET#2,A$:DN$=DN$+A$:NEXTI
2050 PRINT#1,"B-P 2 162"
2060 GET#2,A$,B$:DN$=DN$+" "+A$+B$
2070 CLOSE2:CLOSE1
2080 RETURN
2499 REM *** ERKLAERUNG BLINKEN ***
2500 FORI=0TO3
2510 X=1:Y=18:GOSUB1000
2520 PRINT"                                     "
2530 FORK=1TO100:NEXTK
2540 GOSUB1000
2550 PRINTE$
2560 FORK=1TO100:NEXTK
2570 NEXTI
2580 RETURN
2999 REM *** ERKLAERUNG LOESCHEN ***
3000 E$=""
3010 X=1:Y=18:GOSUB1000
3020 PRINT"                                     "
3030 RETURN
3499 REM *** MASKE ***
3500 PRINTCHR$(147)
3510 FORI=1TO4
3520 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
3530 PRINT"[221]"SPC(17)"[221]"
3540 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
3550 PRINT
3560 NEXTI
3570 X=1:Y=2:GOSUB1000
3580 PRINT"DISKETTENNAME+ID:"
3590 Y=6:GOSUB1000
3600 PRINT"ALTER FILENAME:"
3610 Y=10:GOSUB1000
3620 PRINT"NEUER FILENAME:"
3630 Y=14:GOSUB1000
3640 PRINT "FILEEINTRAG NEU[146]:":PRINT:PRINT
3650 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
3660 PRINT"[221]"SPC(37)"[221]"
3670 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
3680 PRINT
3690 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
3700 PRINT"[221] F1 => ENDE [221] F3 => ANHANG WEGNEHMEN [221]"
3710 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
3720 RETURN
3999 REM *** ENDE? ***
4000 PRINTCHR$(147)
4010 X=0:Y=6:GOSUB1000
4020 PRINT"        [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
4030 PRINT"        [221]"SPC(22)"[221]"
4040 PRINT"        [221] WOLLEN SIE NOCH EINE [221]"
4050 PRINT"        [221]"SPC(22)"[221]"
4060 PRINT"        [221] DISKETTE BEARBEITEN? [221]"
4070 PRINT"        [221]"SPC(22)"[221]"
4080 PRINT"        [221]  J [146] => JA            [221]"
4090 PRINT"        [221]"SPC(22)"[221]"
4100 PRINT"        [221]  N [146] => NEIN          [221]"
4110 PRINT"        [221]"SPC(22)"[221]"
4120 PRINT"        [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
4130 [161]W$:[139]W$[178]""[167]4130
4140 [139]W$[178]"J"[167]H[178]0:[137]130
4150 [139]W$[178]"N"[167][158]64738
4160 [137]4130
4499 [143] *** BEDIENUNGSANLEITUNG ***
4500 [153][199](147);
4510 [153]"          (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
4520 [153]"          (null) FILENAMEN ANHANG (null)"
4530 [153]"          MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
4540 [153]"           VON T.HERTER C1986 "
4550 [153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
4560 [153]" (null)"[166]36)"(null)"
4570 [153]" (null) DIESES KLEINE PROGRAMM ERMOEGLICHT (null)"
4580 [153]" (null)"[166]36)"(null)"
4590 [153]" (null) ES, DIE FILENAMEN EINER DISKETTE   (null)"
4600 [153]" (null)"[166]36)"(null)"
4610 [153]" (null) MIT EINEM ANHANG ZU VERSEHEN,      (null)"
4620 [153]" (null)"[166]36)"(null)"
4630 [153]" (null) ENTWEDER MIT ,8,1 ODER MIT ,8:     (null)"
4640 [153]" (null)"[166]36)"(null)"
4650 [153]" (null) WEITERHIN LAESST SICH DER FILENAME (null)"
4660 [153]" (null)"[166]36)"(null)"
4670 [153]"CLOSE(null) DURCH UEBERSCHREIBEN VERAENDERN.   (null)"
4680 [153]" (null)"[166]36)"(null)"
4690 [153]"CLOSE(null) BITTE LEGEN SIE DIE ZU BEARBEI-    (null)"
4700 [153]" (null)"[166]36)"(null)"
4710 [153]" (null) TENDE DISKETTE EIN UND DRUECKEN    (null)"
4720 [153]" (null)"[166]36)"(null)"
4730 [153]" (null) SIE EINE TASTEWAIT.                    (null)"
4740 [153]" (null)"[166]36)"(null)"
4750 [153]"CLOSEMID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)ON"
4760 [146]198,1
4770 [142]